<%
	Function GetImage()
		Dim FilePath, MaxGroup, PicGroup, MaxPic, PicNum, GroupName
			
		FilePath = "Images\Scenery\"
		MaxGroup = 3
			
		Randomize Timer
		PicGroup = Int(MaxGroup * Rnd) + 1
		Select Case PicGroup
			Case 1
				'Statues
				MaxPic = 8
				GroupName = "Statue"
			Case 2
				'Entrance
				MaxPic = 4
				GroupName = "Entrance"
			Case 3
				'Grounds
				MaxPic = 8
				GroupName = "Grounds"
		End Select
		Randomize Timer
		PicNum = Int(MaxPic * Rnd) + 1
		If PicNum < 10 Then
			PicNum = "0" & PicNum
		End If
		GetImage = "<img src='" & FilePath & GroupName & PicNum & ".jpg' name='toppic' id='toppic' class='picframe'>"
			
	End Function
			
%>
